#!/usr/bin/perl -w

use strict;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );


system('find /storage/webtree/g/gleesog4/Projects -type d -exec chmod 755 {} \;');
system('find /storage/webtree/g/gleesog4/Projects -type f -exec chmod 644 {} \;');

print "Location: http://www.redbrick.dcu.ie/~gleesog4/Projects/\n\n";